home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / descfix.zip / DESC-FIX.TXT
Text File  |  1989-10-05  |  7KB  |  205 lines
  1. Mods to correct missing Descriptions after Zip Convert in MPL17-2B.ZIP
  2. all changes are commented 'Pe 10/05/89
  3.  
  4. All mods Are to RBBSSUB3.BAS  Maple version 
  5.  
  6. Skip to Line..........
  7.  
  8.  
  9.  20724 GOSUB 20734
  10.  
  11. '
  12.       CALL TIMEREMAIN (TIME.REMAINING!)
  13.       IF PRIVATE.DOOR THEN _
  14.          X! = UPLOAD.TIME.FACTOR! * Q! _
  15.       ELSE X! = UPLOAD.TIME.FACTOR! * (TCA! - Q!)
  16. '
  17. '************************8 New Convert code begins here 8*******************
  18. ' Orig mods by Warren Muldrow
  19. '
  20. ' additional mods by Pete Eibl moved code to callable Subroutines 09/25/89
  21. '
  22. '      Zip Convert code.  Does the following:
  23. '
  24. '         .EXE files are retained as is (for self-extracting files)
  25. '          files with NO extension are left alone 
  26. '
  27. '    Added a .SFX for BBS that use the EXTCHECK.DEF file to block EXE files
  28. '    this allows a user to upload self extracting EXE files only if they
  29. '    Re Name the file .SFX ( this is a personall preference and can be removed)
  30. '
  31. '         .ZIP, .ARC, .PAK, .ZOO, and .LZH are unzrc'ed and then Zipped
  32. '
  33. '         All other files are Zipped
  34. '
  35. '      PKUNZIP, PKZIP, PKUNPAK, PAK, LHARC, ZOO.BAT, WHAT.EXE, and LOOZ.EXE
  36. '         should be in the DOS path or the RBBS directory.  WHAT is used by
  37. '         ZOO.BAT and is included in this archive.
  38. '
  39. '      The Library work path (Config parm # 304) is used for a work area !!!
  40. '
  41.   IF ABORT = TRUE THEN _     'Corrects aborted uploads
  42.     EXIT SUB                'corrects aborted uploads
  43.       CALL BRKFNAME (FILE.NAME$, DR$, ZZ$, X$, TRUE)
  44.      IF X$ = ".EXE" OR X$ = "" OR EXT$ = ".SFX" THEN _
  45.    GOTO 20727
  46. '
  47. IF SYSOP OR USER.SECURITY.LEVEL > = ADD.DIR.SECURITY THEN 
  48.   A$ = " Convert or verify " + FILE.NAME$ + " ([Y],N) "
  49.       SUBROUTINE.PARAMETER = 1
  50.       CALL TGET 
  51.        IF SUBROUTINE.PARAMETER = -1 THEN _
  52.         EXIT SUB
  53.          IF NO THEN _
  54.         GOTO 20727
  55.      END IF
  56. IF LOCAL.USER THEN _
  57.   CALL LOCALCONVERT (DR$,ZZ$,X$,DESC$) _   'Pe 10/05/89
  58.  ELSE _
  59.   CALL CONVERT2ZIP (DR$,ZZ$,X$,DESC$)      'Pe 10/05/89
  60. '
  61. 20727 GOSUB 20734     'Pe 09/06/89
  62.  
  63. 'rest is the same
  64.  
  65. 'Skip To End of RBBSSUB3.BAS
  66.  
  67.  
  68.  
  69. ' $SUBTITLE: 'CONVERT2ZIP - subroutine to Convert to ZIP format'
  70. ' $PAGE
  71. '
  72. '  NAME    -- CONVERT2ZIP
  73. '
  74. '  Parameters             DR$  drive/subdir were file is located
  75. '                         ZZ$  Filename (no Extension)
  76. '                          X$  extension of file being converted
  77. '                       DESC$  file description for ZIP comment 'Pe 10/05/89
  78. '
  79. '  PURPOSE -- Convert files to Zip format if remote user
  80. '
  81.       SUB CONVERT2ZIP (DR$,ZZ$,X$,DESC$) STATIC  'Pe 10/05/89
  82.  IF X$ = ".ZIP" THEN _
  83.  CALL QTPUT (FILE.NAME.HOLD$ +" Now being verified and re-Zipped Please wait!",1) : _
  84.   Z$ = "PKUNZIP -x " + FILE.NAME$ + " " _
  85.        ELSE _
  86.         CALL QTPUT (FILE.NAME.HOLD$ +" Now being converted to .ZIP format. Please wait!",1) : _
  87.           IF X$ = ".ARC" OR X$ = ".PAK" THEN _
  88.              Z$ = "PAK e " + FILE.NAME$ + " " : _
  89.           ELSE IF X$ = ".LZH" THEN _
  90.              Z$ = "LHARC e " + FILE.NAME$ + " " : _
  91.           ELSE IF X$ = ".ZOO" THEN _
  92.              Z$ = "ZOO.BAT " + FILE.NAME$ + " " : _
  93.           ELSE _
  94.              Z$ = "COPY " +FILE.NAME$ + " "
  95. '
  96.           B$ = "CONVERT"+NODE.ID$+".BAT"
  97.           CALL OPENOUTW (B$) : _
  98.           PRINT #2, "MD " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$
  99.           PRINT #2, "ECHO OFF"
  100.           PRINT #2, "CTTY GATE"+RIGHT$(COM.PORT$,1)
  101.           PRINT #2, "SETERROR 0"
  102.    IF X$ = ".LZH" THEN _
  103.       PRINT #2, Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$ +"\" _
  104.      ELSE _
  105.           PRINT #2,  Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$
  106.           PRINT #2,  "DEL " + FILE.NAME$
  107.           PRINT #2, "IF ERRORLEVEL 1 GOTO ERR "
  108.           PRINT #2, "PKZIP -m -ex " + DR$ + ZZ$ + " " + _ 
  109.                  LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$ + "\*.*"
  110.           PRINT #2,":ERR"
  111.           PRINT #2, "CTTY CON"
  112.           PRINT #2,  "KDY " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$
  113.           PRINT #2,"SETERROR 0"
  114.           PRINT #2, "ECHO ON"
  115.           PRINT #2, "EXIT"
  116. B$ = "COMMAND.COM /C "+B$    'Pe 10/05/89
  117. CALL SHELLEXIT (B$)         'Pe 10/05/89
  118.      FILE.NAME.HOLD$ = ZZ$ + ".ZIP"
  119.      FILE.NAME$ = DR$ + FILE.NAME.HOLD$
  120. '
  121. ' ***  adds BBS name , users name and description to Zip comment if succesfull
  122.  CALL FINDIT (FILE.NAME$)
  123.   IF OK THEN
  124.     CLOSE 2
  125.      COMMENT.NAME$ = UPLOAD.SUBDIR$ +"\UPLOAD.CMT
  126.       ADDCMT1$ =CRLF$ +"Uploaded to "+ RBBS.NAME$ +" By: "+ACTIVE.USER.NAME$
  127.        ADDCMT2$ = CRLF$ +"Description: " + DESC$
  128.        ADDCOMMENT$ =  ADDCMT1$ + ADDCMT2$ + CRLF$
  129.       CALL OPENOUTW (COMMENT.NAME$)
  130.      PRINT #2, ADDCOMMENT$
  131.     CLOSE 2
  132.    ADDCMT$ = LIBRARY.ARCHIVE.PATH$+"PKZIP -z<"+COMMENT.NAME$+" "+ FILE.NAME$
  133.   SHELL ADDCMT$ 
  134.  END IF
  135. END SUB
  136. '
  137. '
  138. ' $SUBTITLE: 'LOCALCONVERT - subroutine to Convert to ZIP format'
  139. ' $PAGE
  140. '
  141. '  NAME    -- LOCALCONVERT
  142. '
  143. '  Parameters             DR$  drive/subdir were file is located
  144. '                         ZZ$  Filename (no Extension)
  145. '                          X$  extension of file being converted
  146. '                       DESC$  file description for ZIP comment 'Pe 10/05/89
  147. '
  148. '  PURPOSE -- Convert files to Zip format if LOCAL  user
  149. '
  150.       SUB LOCALCONVERT (DR$,ZZ$,X$,DESC$) STATIC   'Pe 10/05/89
  151. '
  152.  IF X$ = ".ZIP" THEN _
  153.    CALL QTPUT (FILE.NAME.HOLD$ +" Now being verified and re-Zipped Please wait!",1) : _
  154.      Z$ = "PKUNZIP -x " + FILE.NAME$ + " " _
  155.     ELSE _
  156.    CALL QTPUT (FILE.NAME.HOLD$ +" Now being converted to .ZIP format. Please wait!",1) : _
  157.     IF X$ = ".ARC" OR X$ = ".PAK" THEN _
  158.      Z$ = "PAK e " + FILE.NAME$ + " " : _
  159.       ELSE IF X$ = ".LZH" THEN _
  160.        Z$ = "LHARC e " + FILE.NAME$ + " " : _
  161.         ELSE IF X$ = ".ZOO" THEN _
  162.        Z$ = "ZOO.BAT " + FILE.NAME$ + " " : _
  163.       ELSE _
  164.      Z$ = "COPY " +FILE.NAME$ + " "
  165. '
  166.   B$ = "CONVERT"+NODE.ID$+".BAT"
  167.    CALL OPENOUTW (B$) : _
  168.     PRINT #2, "MD " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$
  169.      IF X$ = ".LZH" THEN _
  170.       PRINT #2, Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$ +"\" _
  171.       ELSE _
  172.        PRINT #2,  Z$ + LIBRARY.WORK.DISK.PATH$ +"WORK"+ NODE.ID$
  173.        PRINT #2,  "DEL " + FILE.NAME$
  174.        PRINT #2, "IF ERRORLEVEL 1 GOTO ERR "
  175.        PRINT #2, "PKZIP -m -ex " + DR$ + ZZ$ + " " + _ 
  176.                   LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$ + "\*.*"
  177.        PRINT #2,":ERR"
  178.        PRINT #2,  "KDY " + LIBRARY.WORK.DISK.PATH$ + "WORK"+NODE.ID$
  179.        PRINT #2,"SETERROR 0"
  180.        PRINT #2, "EXIT"
  181.     CLOSE 2
  182.   SHELL "COMMAND.COM /C "+B$
  183.   FILE.NAME.HOLD$ = ZZ$ + ".ZIP"
  184.   FILE.NAME$ = DR$ + FILE.NAME.HOLD$
  185.   CALL FINDIT (FILE.NAME$)
  186.    IF OK THEN
  187.     CLOSE 2
  188.      COMMENT.NAME$ = UPLOAD.SUBDIR$ +"\UPLOAD.CMT
  189.        ADDCMT1$ =CRLF$ +"Uploaded to "+ RBBS.NAME$ +" By: "+ACTIVE.USER.NAME$
  190.         ADDCMT2$ = CRLF$ +"Description: " + DESC$
  191.        ADDCOMMENT$ =  ADDCMT1$ + ADDCMT2$ + CRLF$
  192.       CALL OPENOUTW (COMMENT.NAME$)
  193.      PRINT #2, ADDCOMMENT$
  194.     CLOSE 2
  195.    ADDCMT$ = LIBRARY.ARCHIVE.PATH$+"PKZIP -z<"+COMMENT.NAME$+" "+ FILE.NAME$
  196.   SHELL ADDCMT$ 
  197.  END IF
  198. END SUB
  199.  
  200.  
  201.  
  202.  
  203. 'End of Mods to RBBSSUB3.BAS
  204.  
  205. 'Pete Eibl   <Maple Street BBS 414-771-2805  1200-9600 HST>